Summary

This analysis is from a sample of Twitter data with a hashtag for Japanese idols the user wants to see perform at a idol festival.

First we load up the data, then take the top 20 idols to plot.

Plotting the top 20

We plot the data below using ggplot2 and plotly

p <- plot_ly(top20,
    y = ~idol,
    x = ~count,
    name="Favorite idol you want for festival according to Twitter (2017)",
    type="bar",
    orientation='h'
)
p